!


!************** Parameter

sts   =        c    !** Stockstrke
ecode =        d    !** Code fr Reihenfenster (auer Betrieb)
                    !   (1 Normal, 2 Endelement links, 3 Endelement rechts
                    !    4 Zwischenelement)
sfba  = max(0, e)   !** Hhe_1_Fensterbank_Auen
hfba  = max(0, f)   !** Hhe_2_Fensterbank_Auen
sfbi  = max(0, g)   !** Strke_Fensterbank_Innen
uba   = max(0, h)   !** berstand_Fbank_Auen
suba  = max(0, i)   !** Seitl_berst_Fbank_Auen
ubi   = max(0, j)   !** berstand_Fbank_Innen
subi  = max(0, k)   !** Seitl_berst_Fbank_Innen
matfa =        l    !** Material_Fensterbank_Auen
matfi =        m    !** Material_Fensterbank_Innen
ew    =        n    !** Eckwinkel

!*************************

!******   NUR in gerader Wand

if r_ <> 0 then end


!******   anti-Flip

if e~ = 1 then
    mulz -1
    addz -sts
endif




!************** Koordinaten

ww=90-min(max(ew,90),175)/2

suba1 = suba
subi1 = subi
wcode1 = 15



xkn1 = -a/2 + WIDO_LEFT_JAMB
xkw1 = -a/2 + WIDO_LEFT_JAMB
ykw = k_

xke1 = xkw1
xke2 = a/2 + (sts+k_+uba)*tan(ww)
yke = ykw + uba

xbn1 = -a/2
xbw1 = -a/2
ybw = k_ - c_

xbe1 = -a/2
xbe2 = a/2 - (c_-k_-sts+ubi)*tan(ww)
ybe = ybw - ubi



dz1 = max(abs(xkw1-suba1), abs(xbw1-subi1))

dz2 = xke2


mz = dz1 + dz2




!************** 3D-Krper der Fensterbank

!******   Schneiden an der Ecke

rotx -90

cutpolya 4, 1, 0,
    xbe2, ybe, 8,
    xke2+0.05, ybe, 8,
    xke2+0.05, yke, 8,
    xke2, yke, 15

del 1



!******   Fensterbank auen

if w~ = 0 and v~ = 1 then addx (WIDO_RIGHT_JAMB-WIDO_LEFT_JAMB)
if w~ = 180 and v~ = 0 then addx (WIDO_RIGHT_JAMB-WIDO_LEFT_JAMB)

material matfa

if hfba <> 0 then

    rotx -90

    if ykw > 0 then    
        cutpolya 4, 1, 0,
            xkn1, 0, wcode1,
            xkw1, ykw, wcode1,
            -dz1-0.05, ykw, wcode1,
            -dz1-0.05, 0, wcode1
    endif

    if uba > 0 then    
        cutpolya 4, 1, 0,
            xkw1-suba1, ykw, wcode1,
            xke1-suba1, yke, wcode1,
            -dz1-0.05, yke, wcode1,
            -dz1-0.05, ykw, wcode1
    endif
    
    del 1
    
    rotx -90
    rotz -90
    rotx 90
    addz -dz2-0.02

    addy c~

    prism_ 4, mz+0.04,
        -yke, 0, 15,
        -yke, sfba, 15,
        0, hfba, 15,
        0, 0, 15

    del 1
    del 4

    if ykw > 0 then    
        cutend
    endif
    if uba > 0 then    
        cutend
    endif

endif

if w~ = 0 and v~ = 1 then del 1
if w~ = 180 and v~ = 0 then del 1

!******   Fensterbank innen

material matfi

if sfbi <> 0 then

    rotx -90

    if ybw < -sts then
        cutpolya 4, 1, 0,
            xbn1, -sts, wcode1,
            xbw1, ybw, wcode1,
            -dz1-0.05, ybw, wcode1,
            -dz1-0.05, -sts, wcode1
    endif

    if ubi > 0 then
        cutpolya 4, 1, 0,
            xbw1-subi1, ybw, wcode1,
            xbe1-subi1, ybe, wcode1,
            -dz1-0.05, ybe, wcode1,
            -dz1-0.05, ybw, wcode1
    endif

    del 1

    rotx -90
    rotz -90
    rotx 90
    addz -dz2-0.02

    prism_ 5, mz+0.04,
        sts, 0, 15,
        -ybe, 0, 15,
        -ybe, sfbi-0.005, 79,
        -ybe - 0.005, sfbi, 15,
        sts, sfbi, 15

    del 4

    if ybw < -sts then    
        cutend
    endif
    if ubi > 0 then
        cutend
    endif

endif


cutend




